home *** CD-ROM | disk | FTP | other *** search
/ Geomag / Geomag_16_19xx_-_Side_B.d64 / updatpat.sfx / year200 .cvt (.txt) < prev   
GEOS ConVerT  |  1990-02-12  |  3KB  |  46 lines
  1. year200.txt
  2. prg FORMATTED geos FILE v1.0
  3. wRITE iMAGE v2.1
  4. gEOdos 64
  5. GEOwRITE    v2.0
  6. eMPFAENGER : /internet/comp.sys.cbm (aLL)
  7. aBSENDER   : ARCA93 # DELPHI.COM @ 242:4900/99.0  (aRCA93)
  8. bETREFF    : yEAR 2000 ROUTINE
  9. dATUM      : mI 27.05.98, 06:18  (ERHALTEN: 29.05.98)
  10. gROESSE    : 2455 bYTES
  11. ----------------------------------------------------------------------
  12. fROM: ARCA93@DELPHI.COM
  13. hERE'S A SHORT ml ROUTINE FOR USE IN ANY PROGRAM THAT NEEDS TO DO A COMPARISON OF ANY YEAR VARIABLE.
  14.   mOST OF THE CLOCK CHIPS USED IN THE DEVICES WE USE ON OUR cOMMODORES REPORT THE YEAR USING TWO DIGITS.
  15. wITH THE YEAR 2000 APPROACHING, THIS MEANS THOSE TWO DIGITS WILL BE "00". tHIS CAN BE A PROBLEM WHEN COMPARING
  16. TWO DATES, SUCH AS THE DATE/TIME STAMP IN A geos DIRECTORY OR ANY OTHER TIME RELATED FUNCTION. tHE YEAR 00 SHOULD BE  TREATED AS BEING LATER THAN THE YEAR 99. tHE EASIEST WAYTO DO THIS IS TO MOVE THE ZERO STARTING POINT.
  17.   fOR ANY SOFTWARE i WRITE THAT DEALS WITH YEARS, i ALWAYS CONSIDER THE YEAR 1980 AS ZERO AND THE YEAR 2079 AS 99.
  18. tHE FOLLOWING ROUTINE WILL ADJUST THE VALUE IN THE ACCUMULATOR FOR ME:
  19. aDJUSTyEAR:
  20.   CMP #80
  21.   BCS 10$
  22.   ADC #20
  23.   RTS
  24.   SBC #80
  25.   RTS
  26. nOW, IF THE ACCUMULATOR WAS HOLDING A 98, IT WILL RETURN HOLDING AN 18. iF THE ROUTINE WAS ENTERED WITH THE ACCUMULATOR HOLDING A 5 (THE YEAR 2005), THEN IT WOULD RETURN HOLDING A 25. a COMPARISON COULD THEN BE MADE BETWEEN THE 25 AND THE 18 TO ARRIVE AT WHICH YEAR WAS LATER THAN THE OTHER AS WELL AS BY HOW MUCH.
  27.   aLSO, IF NEEDED, THE CARRY FLAG CAN BE CHECKED UPON RETURN FROM THIS ROUTINE. iF THE CARRY IS CLEAR, THEN THE YEAR IS 2000 OR HIGHER.
  28.   tHE SAME THING CAN BE ACCOMPLISHED IN basic WITH THIS SUBROUTINE:
  29. 100 if a<80 then a=a+20:return
  30. 110 a=a-20:return
  31. jUST gosub 100 WITH THE VARIABLE a EQUAL TO THE YEAR TO CONVERT.
  32. aS YOU CAN SEE, IT TAKES VERY LITTLE CODE TO PATCH INTO EXISTING PROGRAMS TO FIX THE UPCOMING YEAR COMPARISON PROBLEM WE MIGHT ENCOUNTER WITH SOME SOFTWARE PACKAGES.
  33. -mAURICE
  34.  ******************************************************************
  35.  *                            *                                   *
  36.  *  mAURICE rANDALL'S         *    hI-pERFORMANCE sOFTWARE fOR    *
  37.  *  cLICK hERE sOFTWARE cO.   *     yOUR cOMMODORE cOMPUTER       *
  38.  *  p.o. bOX 606              *                                   *
  39.  *  cHARLOTTE mi 48813        *    EMAIL: ARCA93@DELPHI.COM       *
  40.  *                            *      bbs: (517) 322-2386          *
  41.  *  ph: (517) 543-5202        * HTTP://PEOPLE.DELPHI.COM/ARCA93/  *
  42.  *                            *                                   *
  43.  ******************************************************************
  44. --- fidogate 4.2.9
  45.  * oRIGIN: fIDO.de DOMAIN GATEWAY (242:4900/99.0)
  46.